home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok71.lha / AntiLinkVirus / AntiLinkVirus.def next >
Text File  |  1993-08-15  |  2KB  |  53 lines
  1. (**************************************************************************
  2.  
  3. :Program.       AntiLinkVirus
  4.  
  5. :Contents.      überprüft (erzeugt beim ersten Mal) eine Checksumme von
  6. :Contents.      dem Programm, an das AntiLinkVirus gelinkt wurde.
  7.  
  8. :Usage.         IMPORT AntiLinkVirus;
  9.  
  10.  
  11. :Copyright.     frei kopierbar und benutzbar. Versionen in anderen Sprachen
  12. :Copyright.     sowie die freie Verwendung auch in kommerziellen Produkten
  13. :Copyright.     (was mich angeht) hiermit gestattet.
  14.  
  15. :Author.        Thomas Ansorge
  16.  
  17. :Address.       Dinkelackerring 55, W-6730 Neustadt, Deutschland
  18.  
  19.  
  20. :Language.      Modula-2
  21.  
  22. :Translator.    M2Amiga V4.0 (deutsch)
  23.  
  24. :Imports.       ReqSupport [Jürgen Zimmermann], AMOK#55, Copyright beachten!
  25.  
  26. :Imports.       Resident [Thomas Ansorge]
  27.  
  28.  
  29. :Version.       1.0 vom 11. April 1992
  30.  
  31. :History.       1.0 vom 11. April 1992. erste funktionierende Version.
  32.  
  33.  
  34. **************************************************************************)
  35.  
  36.  
  37. DEFINITION MODULE AntiLinkVirus;
  38.  
  39. (* Mit alvEvent kann das eigentliche Programm, falls es noch dazu kommt, *)
  40. (* abfragen, was AntiLinkVirus gefunden hat. {} heißt "alles ok".        *)
  41.  
  42. TYPE ALVEvent    = (alvCheckSum,    (* falsche Checksumme *)
  43.                     alvLength,      (* falsche Länge im Directory *)
  44.                     alvMoreHunks,   (* mind. ein Hunk zuviel da *)
  45.                     alvNoHunk,      (* ALV-Hunk nicht gefunden *)
  46.                     alvVirusControl (* mit VIRUSCONTROL© geschützt *)
  47.                    );
  48.  
  49.      ALVEventSet = SET OF ALVEvent;
  50.  
  51. VAR alvEvent: ALVEventSet;
  52.  
  53. END AntiLinkVirus (* Definitions-Modul *).